﻿Public Class formPadrao


    'Public gravaBanco As Boolean = Nothing

    'Private Sub formPadrao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    '    If Not DesignMode Then
    '        gravaBanco = CType(System.Configuration.ConfigurationManager.AppSettings("gravaBanco"), Boolean)
    '    End If

    'End Sub

    'Private Sub formPadrao_LostFocus(sender As Object, e As EventArgs) Handles Me.LostFocus

    '    MsgBox("sai do formulario")
    'End Sub

    'Private Sub formPadrao_Leave(sender As Object, e As EventArgs) Handles Me.Leave
    '    Try
    '        Dim configuracaoBO As New configuracoesBO
    '        registroGlobal.countLock = registroGlobal.countLock - 1
    '        configuracaoBO.udpateConfiguracoes(registroGlobal.countLock, registroGlobal.IDregistroLock)
    '    Catch ex As Exception
    '        generica.gravaErro(ex)
    '    End Try
    'End Sub
End Class